home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
FILE_A.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-08
|
750b
|
25 lines
CASE "SHELL"
FOR n = 1 TO ArgPtr%
A$=A$+POPARG$ + " "
NEXT n
SHELL A$
CASE "BROWSE"
' browse filename, top, left, bottom, right
F$=POPARG$
IF DIR$(F$)="" THEN PRINT "file not found":EXIT SELECT
buf=freefile
OPEN F$ FOR BINARY AS #buf
IF LOF(1)>32000 THEN GET$ #buf, 32000, A$ ELSE GET$ #buf, lof(buf), A$
close #buf
A%=VAL(POPARG$): B%=VAL(POPARG$):C%=VAL(POPARG$):D%=VAL(POPARG$)
IF A%=0 THEN A%=1
IF B%=0 THEN B%=1
IF C%=0 THEN C%=24
IF D%=0 THEN D%=80
LOCATE ,,0
CALL BROWSE (A$, A%, B%, C%, D%)
LOCATE ,,1
A$=""